SetItemIndex & multiselekce v TListview

Otázka od: Vaclav Sazima

15. 11. 2002 13:21

Ahoj,
potrebuji listbox, ktery muze obsahovat desitky tisic polozek.
Realizoval jsem ho pomoci TListview ve virtualnim rezimu a s ViewStyle =
vsReport. Dale je jeste multiselect. Vyber polozky se dela bud rucne,
nebo programove, coz delam takhle :

procedure TListViewBox.SetItemIndex (const Value : integer);
begin
    Selected := nil;
    ItemFocused := nil;
    if Value >= 0 then
    begin
      Selected := Items [Value];
      ItemFocused := Items [Value];
      Selected.MakeVisible (false);
      if Visible then setfocus;
    end;
end;

Vse funguje spravne, az na tu multiselekeci. Po stisku Shift a klinuti
se nevyberou polozky od te nastavene pres SetItemIndex, ale od te, kam
jsem naposled kliknul. Nevite nekdo co s tim?
  Dekuji za odpoved.

   Vaclav Sazima